home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Eagles Nest BBS 5
/
Eagles_Nest_Mac_Collection_Disc_5.TOAST
/
Science & Religion
/
MacAtoms301
/
MacAtoms301
/
Demo Data
/
Random 3D Atoms
< prev
next >
Wrap
Text File
|
1989-12-31
|
26KB
|
1,189 lines
30 random atoms, with coordinates in three dimensions. The data was
created using a BASIC program. The file is used to test 3D transformations.
*atomdefs
3
15 65535 0 0
15 48000 0 0
15 32000 0 0
*erase
*atoms
30
-194 51 188 3
153 -146 -5 2
-202 154 104 2
241 -62 233 3
17 22 87 3
123 57 -24 2
-176 80 21 2
-228 91 6 2
123 55 -138 2
-191 -6 -228 2
36 167 -108 2
224 -42 199 3
228 -61 -45 2
118 -96 -144 3
93 73 222 1
8 -10 -186 2
55 -111 -88 1
35 106 -193 1
-219 -114 108 2
221 38 28 3
-34 -136 -81 3
211 -17 -157 3
37 119 -198 3
41 39 99 3
-61 -93 -222 2
-114 28 -203 1
-119 4 193 2
-201 16 -74 2
79 148 -69 1
-32 136 143 1
*pause
Generate a series of rotations about the y axis.
*transform
.9961947 0 8.715574E-02
0 1 0
-8.715574E-02 0 .9961947
*erase
*plot
*pause
*transform
.9848077 0 .1736482
0 1 0
-.1736482 0 .9848077
*erase
*plot
*pause
*transform
.9659258 0 .2588191
0 1 0
-.2588191 0 .9659258
*erase
*plot
*pause
*transform
.9396926 0 .3420202
0 1 0
-.3420202 0 .9396926
*erase
*plot
*pause
*transform
.9063078 0 .4226183
0 1 0
-.4226183 0 .9063078
*erase
*plot
*pause
*erase
*pause
Now generate a few closely spaced random atoms and rotate them in real time
*transform
1 0 0
0 1 0
0 0 1
*atoms
15
-4 -86 125 3
-24 58 23 2
55 88 -38 1
-23 -43 -26 2
79 -113 48 2
31 56 51 3
-60 89 -29 3
-9 -106 -29 3
-109 51 -9 1
-91 -41 -68 1
-61 -112 -105 3
-96 24 -21 1
-35 87 -113 2
33 40 127 2
107 96 -47 3
*transform
.9993908 0 .0348995
0 1 0
-.0348995 0 .9993908
*erase
*plot
*transform
.9975641 0 6.975646E-02
0 1 0
-6.975646E-02 0 .9975641
*erase
*plot
*transform
.9945219 0 .1045285
0 1 0
-.1045285 0 .9945219
*erase
*plot
*transform
.9902681 0 .1391731
0 1 0
-.1391731 0 .9902681
*erase
*plot
*transform
.9848077 0 .1736482
0 1 0
-.1736482 0 .9848077
*erase
*plot
*transform
.9781476 0 .2079117
0 1 0
-.2079117 0 .9781476
*erase
*plot
*transform
.9702957 0 .2419219
0 1 0
-.2419219 0 .9702957
*erase
*plot
*transform
.9612617 0 .2756374
0 1 0
-.2756374 0 .9612617
*erase
*plot
*transform
.9510565 0 .309017
0 1 0
-.309017 0 .9510565
*erase
*plot
*transform
.9396926 0 .3420202
0 1 0
-.3420202 0 .9396926
*erase
*plot
*transform
.9271839 0 .3746066
0 1 0
-.3746066 0 .9271839
*erase
*plot
*transform
.9135454 0 .4067367
0 1 0
-.4067367 0 .9135454
*erase
*plot
*transform
.8987941 0 .4383712
0 1 0
-.4383712 0 .8987941
*erase
*plot
*transform
.8829476 0 .4694716
0 1 0
-.4694716 0 .8829476
*erase
*plot
*transform
.8660254 0 .5
0 1 0
-.5 0 .8660254
*erase
*plot
*transform
.8480481 0 .5299193
0 1 0
-.5299193 0 .8480481
*erase
*plot
*transform
.8290376 0 .5591929
0 1 0
-.5591929 0 .8290376
*erase
*plot
*transform
.809017 0 .5877852
0 1 0
-.5877852 0 .809017
*erase
*plot
*transform
.7880107 0 .6156615
0 1 0
-.6156615 0 .7880107
*erase
*plot
*transform
.7660444 0 .6427876
0 1 0
-.6427876 0 .7660444
*erase
*plot
*transform
.7431448 0 .6691307
0 1 0
-.6691307 0 .7431448
*erase
*plot
*transform
.7193398 0 .6946584
0 1 0
-.6946584 0 .7193398
*erase
*plot
*transform
.6946584 0 .7193398
0 1 0
-.7193398 0 .6946584
*erase
*plot
*transform
.6691306 0 .7431449
0 1 0
-.7431449 0 .6691306
*erase
*plot
*transform
.6427876 0 .7660444
0 1 0
-.7660444 0 .6427876
*erase
*plot
*transform
.6156615 0 .7880107
0 1 0
-.7880107 0 .6156615
*erase
*plot
*transform
.5877852 0 .809017
0 1 0
-.809017 0 .5877852
*erase
*plot
*transform
.5591928 0 .8290376
0 1 0
-.8290376 0 .5591928
*erase
*plot
*transform
.5299193 0 .848048
0 1 0
-.848048 0 .5299193
*erase
*plot
*transform
.4999999 0 .8660254
0 1 0
-.8660254 0 .4999999
*erase
*plot
*transform
.4694716 0 .8829476
0 1 0
-.8829476 0 .4694716
*erase
*plot
*transform
.4383712 0 .898794
0 1 0
-.898794 0 .4383712
*erase
*plot
*transform
.4067366 0 .9135455
0 1 0
-.9135455 0 .4067366
*erase
*plot
*transform
.3746067 0 .9271837
0 1 0
-.9271837 0 .3746067
*erase
*plot
*transform
.3420201 0 .9396926
0 1 0
-.9396926 0 .3420201
*erase
*plot
*transform
.3090169 0 .9510565
0 1 0
-.9510565 0 .3090169
*erase
*plot
*transform
.2756374 0 .9612617
0 1 0
-.9612617 0 .2756374
*erase
*plot
*transform
.241922 0 .9702957
0 1 0
-.9702957 0 .241922
*erase
*plot
*transform
.2079117 0 .9781477
0 1 0
-.9781477 0 .2079117
*erase
*plot
*transform
.1736482 0 .9848077
0 1 0
-.9848077 0 .1736482
*erase
*plot
*transform
.139173 0 .9902681
0 1 0
-.9902681 0 .139173
*erase
*plot
*transform
.1045285 0 .9945219
0 1 0
-.9945219 0 .1045285
*erase
*plot
*transform
6.975657E-02 0 .9975641
0 1 0
-.9975641 0 6.975657E-02
*erase
*plot
*transform
3.489953E-02 0 .9993908
0 1 0
-.9993908 0 3.489953E-02
*erase
*plot
*transform
-1.192093E-07 0 1
0 1 0
-1 0 -1.192093E-07
*erase
*plot
*transform
-3.489959E-02 0 .9993908
0 1 0
-.9993908 0 -3.489959E-02
*erase
*plot
*transform
-6.975651E-02 0 .9975641
0 1 0
-.9975641 0 -6.975651E-02
*erase
*plot
*transform
-.1045285 0 .9945219
0 1 0
-.9945219 0 -.1045285
*erase
*plot
*transform
-.139173 0 .9902681
0 1 0
-.9902681 0 -.139173
*erase
*plot
*transform
-.1736482 0 .9848077
0 1 0
-.9848077 0 -.1736482
*erase
*plot
*transform
-.2079118 0 .9781477
0 1 0
-.9781477 0 -.2079118
*erase
*plot
*transform
-.2419219 0 .9702957
0 1 0
-.9702957 0 -.2419219
*erase
*plot
*transform
-.2756374 0 .9612617
0 1 0
-.9612617 0 -.2756374
*erase
*plot
*transform
-.3090168 0 .9510565
0 1 0
-.9510565 0 -.3090168
*erase
*plot
*transform
-.3420202 0 .9396926
0 1 0
-.9396926 0 -.3420202
*erase
*plot
*transform
-.3746067 0 .9271837
0 1 0
-.9271837 0 -.3746067
*erase
*plot
*transform
-.4067366 0 .9135455
0 1 0
-.9135455 0 -.4067366
*erase
*plot
*transform
-.4383712 0 .898794
0 1 0
-.898794 0 -.4383712
*erase
*plot
*transform
-.4694716 0 .8829476
0 1 0
-.8829476 0 -.4694716
*erase
*plot
*transform
-.5000001 0 .8660253
0 1 0
-.8660253 0 -.5000001
*erase
*plot
*transform
-.5299195 0 .848048
0 1 0
-.848048 0 -.5299195
*erase
*plot
*transform
-.5591927 0 .8290377
0 1 0
-.8290377 0 -.5591927
*erase
*plot
*transform
-.5877851 0 .8090171
0 1 0
-.8090171 0 -.5877851
*erase
*plot
*transform
-.6156615 0 .7880108
0 1 0
-.7880108 0 -.6156615
*erase
*plot
*transform
-.6427877 0 .7660444
0 1 0
-.7660444 0 -.6427877
*erase
*plot
*transform
-.6691306 0 .7431449
0 1 0
-.7431449 0 -.6691306
*erase
*plot
*transform
-.6946584 0 .7193399
0 1 0
-.7193399 0 -.6946584
*erase
*plot
*transform
-.7193397 0 .6946585
0 1 0
-.6946585 0 -.7193397
*erase
*plot
*transform
-.7431448 0 .6691307
0 1 0
-.6691307 0 -.7431448
*erase
*plot
*transform
-.7660443 0 .6427877
0 1 0
-.6427877 0 -.7660443
*erase
*plot
*transform
-.7880107 0 .6156615
0 1 0
-.6156615 0 -.7880107
*erase
*plot
*transform
-.8090169 0 .5877852
0 1 0
-.5877852 0 -.8090169
*erase
*plot
*transform
-.8290375 0 .559193
0 1 0
-.559193 0 -.8290375
*erase
*plot
*transform
-.8480481 0 .5299193
0 1 0
-.5299193 0 -.8480481
*erase
*plot
*transform
-.8660254 0 .5000001
0 1 0
-.5000001 0 -.8660254
*erase
*plot
*transform
-.8829477 0 .4694716
0 1 0
-.4694716 0 -.8829477
*erase
*plot
*transform
-.8987941 0 .4383711
0 1 0
-.4383711 0 -.8987941
*erase
*plot
*transform
-.9135454 0 .4067366
0 1 0
-.4067366 0 -.9135454
*erase
*plot
*transform
-.9271837 0 .3746067
0 1 0
-.3746067 0 -.9271837
*erase
*plot
*transform
-.9396926 0 .3420202
0 1 0
-.3420202 0 -.9396926
*erase
*plot
*transform
-.9510564 0 .309017
0 1 0
-.309017 0 -.9510564
*erase
*plot
*transform
-.9612616 0 .2756374
0 1 0
-.2756374 0 -.9612616
*erase
*plot
*transform
-.9702958 0 .2419218
0 1 0
-.2419218 0 -.9702958
*erase
*plot
*transform
-.9781476 0 .2079116
0 1 0
-.2079116 0 -.9781476
*erase
*plot
*transform
-.9848076 0 .1736483
0 1 0
-.1736483 0 -.9848076
*erase
*plot
*transform
-.9902681 0 .1391732
0 1 0
-.1391732 0 -.9902681
*erase
*plot
*transform
-.9945219 0 .1045285
0 1 0
-.1045285 0 -.9945219
*erase
*plot
*transform
-.997564 0 6.975646E-02
0 1 0
-6.975646E-02 0 -.997564
*erase
*plot
*transform
-.9993908 0 3.489945E-02
0 1 0
-3.489945E-02 0 -.9993908
*erase
*plot
*transform
-1 0 -8.742791E-08
0 1 0
8.742791E-08 0 -1
*erase
*plot
*transform
-.9993908 0 -3.489939E-02
0 1 0
3.489939E-02 0 -.9993908
*erase
*plot
*transform
-.997564 0 -.0697564
0 1 0
.0697564 0 -.997564
*erase
*plot
*transform
-.9945219 0 -.1045284
0 1 0
.1045284 0 -.9945219
*erase
*plot
*transform
-.9902681 0 -.1391731
0 1 0
.1391731 0 -.9902681
*erase
*plot
*transform
-.9848076 0 -.1736482
0 1 0
.1736482 0 -.9848076
*erase
*plot
*transform
-.9781476 0 -.2079118
0 1 0
.2079118 0 -.9781476
*erase
*plot
*transform
-.9702958 0 -.2419218
0 1 0
.2419218 0 -.9702958
*erase
*plot
*transform
-.9612617 0 -.2756373
0 1 0
.2756373 0 -.9612617
*erase
*plot
*transform
-.9510566 0 -.309017
0 1 0
.309017 0 -.9510566
*erase
*plot
*transform
-.9396926 0 -.3420202
0 1 0
.3420202 0 -.9396926
*erase
*plot
*transform
-.9271837 0 -.3746066
0 1 0
.3746066 0 -.9271837
*erase
*plot
*transform
-.9135456 0 -.4067365
0 1 0
.4067365 0 -.9135456
*erase
*plot
*transform
-.8987941 0 -.4383711
0 1 0
.4383711 0 -.8987941
*erase
*plot
*transform
-.8829477 0 -.4694715
0 1 0
.4694715 0 -.8829477
*erase
*plot
*transform
-.8660254 0 -.4999999
0 1 0
.4999999 0 -.8660254
*erase
*plot
*transform
-.8480481 0 -.5299193
0 1 0
.5299193 0 -.8480481
*erase
*plot
*transform
-.8290375 0 -.5591929
0 1 0
.5591929 0 -.8290375
*erase
*plot
*transform
-.8090172 0 -.5877851
0 1 0
.5877851 0 -.8090172
*erase
*plot
*transform
-.7880107 0 -.6156614
0 1 0
.6156614 0 -.7880107
*erase
*plot
*transform
-.7660445 0 -.6427876
0 1 0
.6427876 0 -.7660445
*erase
*plot
*transform
-.7431448 0 -.6691306
0 1 0
.6691306 0 -.7431448
*erase
*plot
*transform
-.7193397 0 -.6946584
0 1 0
.6946584 0 -.7193397
*erase
*plot
*transform
-.6946584 0 -.7193398
0 1 0
.7193398 0 -.6946584
*erase
*plot
*transform
-.6691308 0 -.7431448
0 1 0
.7431448 0 -.6691308
*erase
*plot
*transform
-.6427876 0 -.7660445
0 1 0
.7660445 0 -.6427876
*erase
*plot
*transform
-.6156615 0 -.7880107
0 1 0
.7880107 0 -.6156615
*erase
*plot
*transform
-.5877855 0 -.8090168
0 1 0
.8090168 0 -.5877855
*erase
*plot
*transform
-.5591929 0 -.8290376
0 1 0
.8290376 0 -.5591929
*erase
*plot
*transform
-.5299195 0 -.848048
0 1 0
.848048 0 -.5299195
*erase
*plot
*transform
-.4999999 0 -.8660254
0 1 0
.8660254 0 -.4999999
*erase
*plot
*transform
-.4694716 0 -.8829476
0 1 0
.8829476 0 -.4694716
*erase
*plot
*transform
-.4383709 0 -.8987942
0 1 0
.8987942 0 -.4383709
*erase
*plot
*transform
-.4067366 0 -.9135455
0 1 0
.9135455 0 -.4067366
*erase
*plot
*transform
-.3746067 0 -.9271837
0 1 0
.9271837 0 -.3746067
*erase
*plot
*transform
-.34202 0 -.9396927
0 1 0
.9396927 0 -.34202
*erase
*plot
*transform
-.3090171 0 -.9510565
0 1 0
.9510565 0 -.3090171
*erase
*plot
*transform
-.275637 0 -.9612617
0 1 0
.9612617 0 -.275637
*erase
*plot
*transform
-.2419219 0 -.9702957
0 1 0
.9702957 0 -.2419219
*erase
*plot
*transform
-.2079118 0 -.9781476
0 1 0
.9781476 0 -.2079118
*erase
*plot
*transform
-.1736481 0 -.9848077
0 1 0
.9848077 0 -.1736481
*erase
*plot
*transform
-.1391733 0 -.9902681
0 1 0
.9902681 0 -.1391733
*erase
*plot
*transform
-.1045282 0 -.994522
0 1 0
.994522 0 -.1045282
*erase
*plot
*transform
-6.975651E-02 0 -.9975641
0 1 0
.9975641 0 -6.975651E-02
*erase
*plot
*transform
-3.489971E-02 0 -.9993907
0 1 0
.9993907 0 -3.489971E-02
*erase
*plot
*transform
-1.192093E-07 0 -1
0 1 0
1 0 -1.192093E-07
*erase
*plot
*transform
3.489918E-02 0 -.9993908
0 1 0
.9993908 0 3.489918E-02
*erase
*plot
*transform
6.975657E-02 0 -.9975641
0 1 0
.9975641 0 6.975657E-02
*erase
*plot
*transform
.1045282 0 -.994522
0 1 0
.994522 0 .1045282
*erase
*plot
*transform
.1391732 0 -.9902681
0 1 0
.9902681 0 .1391732
*erase
*plot
*transform
.1736481 0 -.9848077
0 1 0
.9848077 0 .1736481
*erase
*plot
*transform
.2079115 0 -.9781477
0 1 0
.9781477 0 .2079115
*erase
*plot
*transform
.241922 0 -.9702957
0 1 0
.9702957 0 .241922
*erase
*plot
*transform
.2756371 0 -.9612617
0 1 0
.9612617 0 .2756371
*erase
*plot
*transform
.3090171 0 -.9510565
0 1 0
.9510565 0 .3090171
*erase
*plot
*transform
.34202 0 -.9396927
0 1 0
.9396927 0 .34202
*erase
*plot
*transform
.3746063 0 -.927184
0 1 0
.927184 0 .3746063
*erase
*plot
*transform
.4067366 0 -.9135455
0 1 0
.9135455 0 .4067366
*erase
*plot
*transform
.4383709 0 -.8987942
0 1 0
.8987942 0 .4383709
*erase
*plot
*transform
.4694716 0 -.8829476
0 1 0
.8829476 0 .4694716
*erase
*plot
*transform
.4999999 0 -.8660254
0 1 0
.8660254 0 .4999999
*erase
*plot
*transform
.5299194 0 -.848048
0 1 0
.848048 0 .5299194
*erase
*plot
*transform
.5591928 0 -.8290376
0 1 0
.8290376 0 .5591928
*erase
*plot
*transform
.5877851 0 -.8090171
0 1 0
.8090171 0 .5877851
*erase
*plot
*transform
.6156615 0 -.7880107
0 1 0
.7880107 0 .6156615
*erase
*plot
*transform
.6427876 0 -.7660445
0 1 0
.7660445 0 .6427876
*erase
*plot
*transform
.6691307 0 -.7431448
0 1 0
.7431448 0 .6691307
*erase
*plot
*transform
.6946584 0 -.7193398
0 1 0
.7193398 0 .6946584
*erase
*plot
*transform
.7193396 0 -.6946586
0 1 0
.6946586 0 .7193396
*erase
*plot
*transform
.7431449 0 -.6691306
0 1 0
.6691306 0 .7431449
*erase
*plot
*transform
.7660443 0 -.6427878
0 1 0
.6427878 0 .7660443
*erase
*plot
*transform
.7880108 0 -.6156614
0 1 0
.6156614 0 .7880108
*erase
*plot
*transform
.8090169 0 -.5877853
0 1 0
.5877853 0 .8090169
*erase
*plot
*transform
.8290374 0 -.5591931
0 1 0
.5591931 0 .8290374
*erase
*plot
*transform
.8480481 0 -.5299193
0 1 0
.5299193 0 .8480481
*erase
*plot
*transform
.8660253 0 -.5000002
0 1 0
.5000002 0 .8660253
*erase
*plot
*transform
.8829476 0 -.4694715
0 1 0
.4694715 0 .8829476
*erase
*plot
*transform
.898794 0 -.4383712
0 1 0
.4383712 0 .898794
*erase
*plot
*transform
.9135455 0 -.4067365
0 1 0
.4067365 0 .9135455
*erase
*plot
*transform
.9271839 0 -.3746066
0 1 0
.3746066 0 .9271839
*erase
*plot
*transform
.9396926 0 -.3420204
0 1 0
.3420204 0 .9396926
*erase
*plot
*transform
.9510565 0 -.3090169
0 1 0
.3090169 0 .9510565
*erase
*plot
*transform
.9612616 0 -.2756375
0 1 0
.2756375 0 .9612616
*erase
*plot
*transform
.9702958 0 -.2419218
0 1 0
.2419218 0 .9702958
*erase
*plot
*transform
.9781476 0 -.2079118
0 1 0
.2079118 0 .9781476
*erase
*plot
*transform
.9848077 0 -.1736484
0 1 0
.1736484 0 .9848077
*erase
*plot
*transform
.9902681 0 -.1391731
0 1 0
.1391731 0 .9902681
*erase
*plot
*transform
.9945219 0 -.1045287
0 1 0
.1045287 0 .9945219
*erase
*plot
*transform
.9975641 0 -6.975638E-02
0 1 0
6.975638E-02 0 .9975641
*erase
*plot
*transform
.9993908 0 -.0348996
0 1 0
.0348996 0 .9993908
*erase
*plot
*transform
1 0 1.748558E-07
0 1 0
-1.748558E-07 0 1
*erase
*plot
*pause